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As of the present, the following' parts of LISP 1*5 are 
working. This is an excerpt from the forth coming LjCSP 1*5 
Programmers Manual e 

*** Arithm etic in LISP 

LISP 1,5 has provisions for handling fixed point and floating 
point numbers and logical words* Available functions include the 
arithmetic operations 9 arithmetic predicates, arid logical and 
shifting operations for logical words 9 

Numbers read into a LISP program are treated as constants • 
They need not be quoted . Numbers read in are marked internally as 
feeing either f lxe?d point or floating point, with octal numbers or 
bit patterns treated as fixed point numbers 

a a Floating Point Numbers 

The rules for punching these for the read program are: 

1. A decimal point roust be included but not as the first or 
last character, 

2o A plus sign or minus sign may precede the number. The 
plus sign is not required* 

3« Exponent indication is optional, The letter E followed 
by the exponent to the base 10 is written directly after the 
number. The exponent consists of one or two digits which may be 
preceded by a plus or minus sign. 
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4« Absolute values must lie between 2 and 2 
{~10 38 and 10~ 38 )- 

5. Significance is limited to eight decimal digits* 

6. Any possible ambiguity between the decimal point and the 
point used in dot notation Bj&y be eliminated b^ putting spaces 
before and after the LISP dot* This is not required where there 
ia no ambiguity? 

The following are examples of correct floating point numbers, 
These are all different forms for the same number, and will have 
the saise effect when read in* 

60*0 
6, El 
600. DOE -1 
0c6E+2 
The forms ,05+2 and 60* are incorrect because the decimal 
point is the first or last character* 

b* Fixed Point Numbers 

These are written as integers with an optional sign* 
Examples: 

-17 

32719 

Ce Octal Numbers or Logical Words 

The correct form consists of 
1* A sign (optional) 
2. Up to 12 digits (0 through 7)* 
3c The letter Q* 

4, An optional scale factor o The scale factor is a decimal 
integer, no sign allowed* 
Examples are: 
a* 7T7Q 
be 777Q* 
c c -3Q11 
dc -7Q11 
6c +7QU 
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The effect of the read program on octal numbers is as 
follows . 

1. The number Is placed In the accumulator three bits per 
octal digit with zero's added to the left hand side, to make 
twelve digits. The right most digit is placed in bits 33-35, 
the twelfth digit i3 placed in bits P, 1, and 2. 

2. The accumulator is leftshifted three bits (one octal digit) 
times the scale factor. Thus the scale factor is an exponent to 
the base eight. 

3» If there is a negative sign, it is OR-ed into the P bit. 
The number is then stored as a logical word. 

The examples a through e above will be converted to the 
following octal words. Note that because the sign is OR-ed with 
the 36th numerical bit, c, & and e are equivalent. 
a. 000000000777 
( b. 000007770000 

c . 700000000000 

d. 700000000000 

e. ^00000000000 

d. Arithmetic Functions 

These functions may be applied to mixed expressions involving 
fixed point and floating point numbers. If the expression contains 
at least one floating point number, all numbers will be floated, 
and the value will be a floating point number. Octal numbers are 
considered as fixed point. 

plus [x^;.. 9 ;x a ] is a function of n arguments whose value is 
the algebraic sum of the arguments. 

difference [x;:/ ] has as vtlue the algebraic difference of its 
arguments . 

minus [x] changes the sign of its argument. 

times[x 2 ;...|X n J is a function of n arguments, whose value is 
the product (with correct sign) of its arguments. 
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§ddl[x] has x+1 as its value. The value is fixed point or 
floating point depending on the argument. 

subtl [x] ha3 x-1 as its value. 

niaxCx 1 s...;x n 3 choses the largest of its arguments a3 its 
value. 

mlrijx^ - »«jx 3 choses the smallest of its argtenents as its 
value . 

recipfxj computes 1/x. The reciprocal of any fixed point number 
is defined to be zero. 

These functions may occur inside of each other and may be 
used recursively. In some cases the arguments ciay be evaluated - 
before the arithssetic function is performed. We illustrate this 
with the following examples. 

Suppose that the evslquote operator is given the following 
doublet: 

APPLY 

(DIFFERENCE (PI 2) ({PI „ 3.1*159)) ) - 
The apply function expects a list of arguments already evaluated. 
Since PI is not a number, an error will result . 
Now consider the following doublet: 
EVAL 

( (DIFFERENCE PT 2) ((PI . 3-1*159))) 
Eval will evaluate 2 and Pi and then perform the function plus. 
,! 2" will evaluate to "2" because numbers are constants in LISP 1,5. 
"PI" will evaluate to n 3 1*159 ,f because it is tied to that number 
on the pair list. The correct answer will be 1.1*159. 
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e. Arithmetic Predicates 

We now list the arithmetic predicates. The rules concerning 
mixed expressions and evaluation of arguments are the same as for 
the arithmetic f unctions . The valve of a predicate is NIL (false) 
or true. 

lessp Cxjy] :s true if x5y, ©M false otherwise, 
greatergfx] is true if x^y, 
zer^ixj is truo if x«0, or if !x/<3~ 6 . 
onep [x3- is true if ^-4. 

mlnuspfx] is trua if x is negative. 
"-0" is negative . 

numberpjxj lo true if x is „umber( (fixed point >r floating point) 
fixECxJ is true only if x i« a .Ved point number, if x ls not 
a number at all, an error will *a$ult. 

floafcpfx) is similar to fixplxj but fn #.«„«,«■ * .. 

**t a i wud io. fixed point numbers. 

esuallxjyj works on lists, fixed point nu^s, M floafcing 

point numbers, its value is true if the *i t ^e nts j^.© 

identical lists, or identical numbers, Ploatii.. point 

numbers roust be exactly equal for the value to be ^.^ 

f. Logical Functions 

These operate on 36 bit patterns. The only acceptable argu- 
ments are fixed point numbers. These may be read in as octal or 
decimal integers, or they may be the result of a previous computation. 

logor[x 1 j...;x n ] performs a logical OR on its arguments. 

logand[x 1 5...;x n l performs a logical AND on its arguments. 

logxor[x 1 ;...|x n ] performs an exclusive OR 

(0 V - 0, 1 V - 1, 1 V 1 * 0). 



-6- 

g. Example 

In the beginning of this manual, an example of a recursive 
definition was given for hi, 

nl * [n**0-<- 1st -* n-{n-l)L] 

To define this in a LISP program, we punch: 
BEFINE(( 
(FACTORIAL (LAMBDA (X) (COHD 

({ZEEOP X) 1) 

(T (TIMES K (FACTORIAL (SDB1 N)))) ))) 
)) 

(End of action k.K LISP 1<5 Manual) 

If you have any complaints, bring them to 26-265. 

Note on special forms: 

Functions of an indefinite number of arguments are called 
special forms. Special forms are treated in the same manner as 
functions with the following exceptions: 

1, The apply function will nofc recognize a special form as 
Its first argument. 

2. The evalquote operator, when it encounters a special form 
as its first argument, gives the list of the form and its arguments 
to eval, i.e. 

. evalquot*t(f;(a,b,c,d)j - eval[ (f ,a,b,c,d);NILj 

if f is a special form. 

Special fonss Include PLUS, TIMES, MAX, MIN, LOGOR, LOGAND, 
and LOOXOR. 

Consider the previous example 

APPLY 

(DIFFERENCE (PI 2) ((PI . 3.14159)) ) 
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which we said would cause an error. If DIFFERENCE were changed to 
PLUS, another type of error would result because apply will not 
recognize a special form. Since evalquote will recognize special 
forms and evaluate them, the following example is correct. 

TIMES 

(2 (TIMES 3 5) 

The answer is 30. 

Read Program for Numbers 

Ther* is another method of reading in decimal numbers. It 
uses a binary scale factor B, and its result is a fixed point number. 
Examples are 

6E1B2 120 

6B2 12 

6.5B2 13 

6.3B2 12 

All LISP number conversion is done by Share UAE8C1, except 
for octal numbers. 

Winne ille pu informs us that *T* has been changed to 
VERITAS-NUNQtfAM-PERIT. K - K should be written as an 11 punch. 

There is a new function for printing the time: TEMPUS-FUQIT (). 

Chapter ^ 
f. Arrays 

Provision is made in LISP 1.5 for allocating blocks of storage 
for data. The data may consist of list structure or data words. 
Arrays may have up to three indie ies. 

To declare an array use the function array . Its argument is 
a list of arrays to be declared. Each one must be for list structure 
or non-list structure. 
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Suppose ALPHA is to be a 10 x 10 array of list structure, and 
BETA a 5 x 5 x 5 array of non list structure., The array function is 

ARRAY (( 

(ALPHA (10,10) LIST) 

(BETA (5,5,5) NONLIST) )) 

To find the value of B- ^ 2 : (BETA 3,4,2) or (BETA I J K) 

with a Pair list. 

To set ALPHA 3 ^ to "YES B : (ALPHA (QUOTE SET) (QUOTE YES) 3 4) 

A rr &y uses marginal indexing for maximum speed. The total 
number of words used by an array whose size is D* x Dg x D~ is 

4 + D^ + D^Dg + D^DgD^. If the array is 2 dimensional, D 1 » 1. 

If the array is 1 dimensional, D^ and D g * 1« 

To save space, specify dimensions in increasing order. 

ALPHA (3,4,5) takes less words than ALPHA (5,3,4). 

Ccmpatabllity of LISP 1 and LISP l.£. 

1. EVALQUOTE has two arguments while APPLY has three. To 
change a LISP 1 program for LISP 1«5 simply eliminate the p-list if 
it is null. If the p-list is needed, then the function apply is 
available in LISP 1.5, 

2. Arithmetic in LISP 1.5 is new, improved, and generally 
incompatible with LISP 1. 

3. LISP 1.5 has many extra features. There are being written 
up for the new LISP 1 Programmer* fa Manual. Until it comes, check 
in Room 26-265. 
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